home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)ma.d64 / snoopy demo.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  3KB  |  94 lines
  1. 1 REM J.L. SMITH  498 GUY TWO MOUNTAINS, QUEBEC: MARCH 1984
  2. 2 X=200 :Y=55:P=21:MM=175
  3. 3 PRINT"[147]"
  4. 5 FORI=1TO14*40:PRINT"[155] ";:NEXT
  5. 10 GOSUB2900
  6. 15 V=53248
  7. 20 POKE2040,13:POKE2041,14:POKE2042,15
  8. 30 FORI=0TO62:READQ:POKE832+I,Q:NEXT
  9. 31 FORI=0TO29 :POKE896+I,170:NEXT
  10. 32 FORI=30TO62 :POKE896+I,102 :NEXT
  11. 35 GOSUB1000
  12. 36 GOSUB8000
  13. 40 FORI=0TO62:READQ:POKE960+I,Q:NEXT
  14. 50 POKEV+21,7
  15. 55 POKEV+28,1:REM ON MULTI COL
  16. 56 POKEV+39,1:REM SET COL OF S#1
  17. 57 POKE53285,1:REM SET COL SCREEN
  18. 58 POKEV+37,1:REM SET AUX COL 1
  19. 59 POKEV+38,14  :REM  SET AUX COL 2
  20. 60 POKEV+39,0:REM SET COL SPR
  21. 61 X=X-1: L=L-.1:IFX=0ANDE=0     THENX=255:E=7 :FORI=1TO500 :NEXT:Y=Y+20:P=42
  22. 62 MM=MM+ 5:IFMM>184THENMM=175
  23. 63 IFX=35ANDE=7THEN3080
  24. 64 GOSUB8000
  25. 65 POKEV,X  :REM X
  26. 66 POKEV+2,X   :REM X*2
  27. 70 POKEV+1,Y-X*.1:REM Y
  28. 71 POKEV+3,Y-X*.1+P :REM Y*2
  29. 75 TT=TT+1:IFTT=2THENGOSUB3000
  30. 76 IFTT=30 THENGOSUB3010
  31. 77 IFTT=60 THENGOSUB3020
  32. 78 IFTT=90  THENGOSUB3030
  33. 79 IFTT=120 THENGOSUB3040
  34. 80 POKEV+16,0
  35. 81 IFTT=200 THENGOSUB3050
  36. 84 POKEV+29,E:POKEV+23,E:REM EXPAND
  37. 100 DATA0,0,0,0,0,0,0,0,0,0,0,80
  38. 101 DATA0,5,84,0,89,84,1,85,90, 9 ,85,90
  39. 102 DATA0,85,104,0,1,84,0,0,80,0,0,160
  40. 103 DATA0,0,80,0,0,84,0,0,116,0,2,116
  41. 104 DATA3,3,116,3,129,244,3,85,84,3,85,84,170,170,170
  42. 105 DATA   0,0,2,0 ,170,3,10,170,184,10,42 ,168
  43. 106 DATA42,168,168,170,170, 42,10,160,170,170,170,170
  44. 107 DATA42,170,168,10,170,160,2,170,128,32,40,0
  45. 108 DATA 40,255,0,10,251,0, 2,175,0,0,255,0
  46. 109 DATA3,255,  0,3,255,  0,3,255,  0,0,20,0,0, 84,0
  47. 200 GOTO61
  48. 1000 POKE2041,14
  49. 1010 POKEV+21,2
  50. 1030 POKEV+28,2:REM ON MULTI COL
  51. 1040 POKEV+40,2:REM SET COL OF S#2
  52. 2000 RETURN
  53. 2900 GOSUB5000:PRINT"[166][166][166][166][158][218][218][218][218][218][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][161][166][166][166][166][166][166][166][166][166][166]";
  54. 2901 PRINT"[166][166][166][166][166] [221][221][221][221][221] [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][161][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  55. 2902 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][214][214][214][214][214][214][214][214][214][214][214][214][214]";
  56. 2903 PRINT"[166][166][166][214][166][166][166][166][166][166][166][166][166][166][214][166][166][166][166][166][166][166][214][166][166][166][166][166][166][166][166][166][166][166][166]V[166][166][166][166]"
  57. 3000 PRINT"[158]IS IT A BIRD?   ":RETURN
  58. 3010 PRINT"[158]IS IT A PLANE?   ":RETURN
  59. 3020 PRINT"[158]IT'S NOT SUPERMAN!  ":RETURN
  60. 3030 PRINT"[158]IS IT THE RED BARRON?    ":RETURN
  61. 3040 PRINT"[158]NO ITS SNOOPY!          ":RETURN
  62. 3050 PRINT"[158]LOOK OUT HERE HE COMES AGAIN!!!!":RETURN
  63. 3080 PRINT"[158]GOOD GREEF!                       ":GOTO10000
  64. 5000 A$="":A1$=""
  65. 5001 PRINT""A$"[166][166][166][166][166][166]"A$"[166][166][166][166][166][166]"A$"[158]     "A$" [166][166]  "A$"     "
  66. 5002 PRINT""A1$"[215][215]"
  67. 5003 PRINT""A1$"[215][215][215][215]"
  68. 5004 PRINT""A1$"[157][215][215][215][215][215][215]"
  69. 5005 PRINT""A1$"[157][157][215][215][215][215][215][215][215][215][215]"
  70. 5006 PRINT""A1$"[157][157][157][215][215][215][215][215][215][215][215][215][215][215]"
  71. 5007 PRINT""A1$"[149][166]"
  72. 5008 PRINT""A1$"[149][166]"
  73. 5009 PRINT""A1$"[149][166]"
  74. 5010 PRINT""A1$"[149][166]"
  75. 5012 PRINT""A1$"[149][166]"
  76. 5014 PRINT"[158][205][194][206]"
  77. 5015 PRINT"[158][195][209][195]"
  78. 5016 PRINT"[158][206][194][205]"
  79. 5999 RETURN
  80. 8000 POKEV+4,245+INT(RND(1)*5)
  81. 8010 POKEV+5,MM
  82. 8020 POKEV+41,10
  83. 8030 POKEV+28,7
  84. 8040 REMPOKEV+29,4
  85. 8050 REMPOKEV+23,4
  86. 8900 RETURN
  87. 10000 REM
  88. 10010 FORI=1TO20:NEXT
  89. 10030 POKEV+1,Y-X*.1+P:REM Y
  90. 10035 FORI=1TO10:NEXT
  91. 10040 POKEV,X+10  :REM X
  92. 10050 GOTO10050
  93. 60000 PP=PP+1:POKEV+41,PP:PRINTPP:INPUTA$:GOTO60000
  94.